ADA Programming Guide/ADA Programming Guide.iso/ada_a9x/codes.ada

Text File | 1996-01-30 | 325b | 18 lines

WITH Ada.Text_IO, VT100, My_Int_IO;
USE  Ada.Text_IO, VT100, My_Int_IO;

PROCEDURE Codes IS
BEGIN
    FOR I IN 0 .. 255 LOOP
        Put(I,3,10);
        Put(" ");
        IF (I >= 7 AND I <= 13) OR (I >= 26 AND I <= 27) THEN
            Put(" ");
        ELSE
            Put(character'val(I));
        END IF;
        Put("   ");
    END LOOP;
    New_Line;
END Codes;